(sort-paragraphs): Use proper paragraph definition instead of just checking

for whitespace.

diff --git a/lisp/sort.el b/lisp/sort.el
index b9aa5b22e6e4eb28b718afb39ca9969dadd1aa3c..61fa29883173fb7ffeca3c3bd9cd7e141e076c30 100644 (file)
--- a/lisp/sort.el
+++ b/lisp/sort.el
@@ -211,7 +211,10 @@ REVERSE (non-nil means reverse order), BEG and END (region to sort)."
       (narrow-to-region beg end)
       (goto-char (point-min))
       (sort-subr reverse
-                (function (lambda () (skip-chars-forward "\n \t\f")))
+                (function
+                 (lambda ()
+                   (while (and (not (eobp)) (looking-at paragraph-separate))
+                     (forward-line 1))))
                 'forward-paragraph))))
 
 ;;;###autoload